home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •The Casino• / •Las Vegas• / Video Poker ••• / Video Poker еее.rsrc / CODE_3.txt < prev    next >
Text File  |  1988-04-19  |  19KB  |  330 lines
  1. # near model CODE resource
  2. # jump table entries: 72-84 (13 of them)
  3. export_11:
  4. 00000000  2F17                     move.l     -[A7], [A7]
  5. 00000002  2F7C 0400 0C00 0004      move.l     [A7 + 0x4], 0x4000C00
  6. 0000000A  4EFA 0160                jmp        [PC + 0x160 /* 0000016C */]
  7. export_20:
  8. 0000000E  2F17                     move.l     -[A7], [A7]
  9. 00000010  2F7C 0800 0484 0004      move.l     [A7 + 0x4], 0x8000484
  10. 00000018  4EFA 0152                jmp        [PC + 0x152 /* 0000016C */]
  11. export_9:
  12. 0000001C  2F17                     move.l     -[A7], [A7]
  13. 0000001E  2F7C 1000 0808 0004      move.l     [A7 + 0x4], 0x10000808
  14. 00000026  4EFA 0144                jmp        [PC + 0x144 /* 0000016C */]
  15. export_16:
  16. 0000002A  2F17                     move.l     -[A7], [A7]
  17. 0000002C  2F7C 1800 040C 0004      move.l     [A7 + 0x4], 0x1800040C
  18. 00000034  4EFA 0136                jmp        [PC + 0x136 /* 0000016C */]
  19. export_21:
  20. 00000038  2F17                     move.l     -[A7], [A7]
  21. 0000003A  2F7C 2004 0480 0004      move.l     [A7 + 0x4], 0x20040480
  22. 00000042  4EFA 0128                jmp        [PC + 0x128 /* 0000016C */]
  23. export_17:
  24. 00000046  2F17                     move.l     -[A7], [A7]
  25. 00000048  2F7C 2A04 0484 0004      move.l     [A7 + 0x4], 0x2A040484
  26. 00000050  4EFA 011A                jmp        [PC + 0x11A /* 0000016C */]
  27. export_15:
  28. 00000054  2F17                     move.l     -[A7], [A7]
  29. 00000056  2F7C 3204 0488 0004      move.l     [A7 + 0x4], 0x32040488
  30. 0000005E  4EFA 010C                jmp        [PC + 0x10C /* 0000016C */]
  31. 00000062  2F17                     move.l     -[A7], [A7]
  32. 00000064  2F7C 3C04 040C 0004      move.l     [A7 + 0x4], 0x3C04040C
  33. 0000006C  4EFA 00FE                jmp        [PC + 0xFE /* 0000016C */]
  34. 00000070  2F17                     move.l     -[A7], [A7]
  35. 00000072  2F7C 4404 0410 0004      move.l     [A7 + 0x4], 0x44040410
  36. 0000007A  4EFA 00F0                jmp        [PC + 0xF0 /* 0000016C */]
  37. 0000007E  2F17                     move.l     -[A7], [A7]
  38. 00000080  2F7C 4A04 0894 0004      move.l     [A7 + 0x4], 0x4A040894
  39. 00000088  4EFA 00E2                jmp        [PC + 0xE2 /* 0000016C */]
  40. export_13:
  41. 0000008C  2F17                     move.l     -[A7], [A7]
  42. 0000008E  2F7C 5204 0498 0004      move.l     [A7 + 0x4], 0x52040498
  43. 00000096  4EFA 00D4                jmp        [PC + 0xD4 /* 0000016C */]
  44. export_18:
  45. 0000009A  2F17                     move.l     -[A7], [A7]
  46. 0000009C  2F7C 5804 089C 0004      move.l     [A7 + 0x4], 0x5804089C
  47. 000000A4  4EFA 00C6                jmp        [PC + 0xC6 /* 0000016C */]
  48. export_14:
  49. 000000A8  2F17                     move.l     -[A7], [A7]
  50. 000000AA  2F7C 6005 1480 0004      move.l     [A7 + 0x4], 0x60051480
  51. 000000B2  4EFA 00B8                jmp        [PC + 0xB8 /* 0000016C */]
  52. 000000B6  2F17                     move.l     -[A7], [A7]
  53. 000000B8  2F7C 6C07 0C80 0004      move.l     [A7 + 0x4], 0x6C070C80
  54. 000000C0  4EFA 00AA                jmp        [PC + 0xAA /* 0000016C */]
  55. 000000C4  2F17                     move.l     -[A7], [A7]
  56. 000000C6  2F7C 7007 0480 0004      move.l     [A7 + 0x4], 0x70070480
  57. 000000CE  4EFA 009C                jmp        [PC + 0x9C /* 0000016C */]
  58. 000000D2  2F17                     move.l     -[A7], [A7]
  59. 000000D4  2F7C 8000 0000 0004      move.l     [A7 + 0x4], 0x80000000
  60. 000000DC  4EFA 008E                jmp        [PC + 0x8E /* 0000016C */]
  61. 000000E0  2F17                     move.l     -[A7], [A7]
  62. 000000E2  2F7C 8800 0000 0004      move.l     [A7 + 0x4], 0x88000000
  63. 000000EA  4EFA 0080                jmp        [PC + 0x80 /* 0000016C */]
  64. 000000EE  2F17                     move.l     -[A7], [A7]
  65. 000000F0  2F7C 9400 0000 0004      move.l     [A7 + 0x4], 0x94000000
  66. 000000F8  4EFA 0072                jmp        [PC + 0x72 /* 0000016C */]
  67. 000000FC  2F17                     move.l     -[A7], [A7]
  68. 000000FE  2F7C 9A00 0000 0004      move.l     [A7 + 0x4], 0x9A000000
  69. 00000106  4EFA 0064                jmp        [PC + 0x64 /* 0000016C */]
  70. export_10:
  71. 0000010A  2F17                     move.l     -[A7], [A7]
  72. 0000010C  2F7C A000 0E00 0004      move.l     [A7 + 0x4], 0xA0000E00
  73. 00000114  4EFA 0056                jmp        [PC + 0x56 /* 0000016C */]
  74. 00000118  2F17                     move.l     -[A7], [A7]
  75. 0000011A  2F7C A800 0000 0004      move.l     [A7 + 0x4], 0xA8000000
  76. 00000122  4EFA 0048                jmp        [PC + 0x48 /* 0000016C */]
  77. 00000126  2F17                     move.l     -[A7], [A7]
  78. 00000128  2F7C B000 0000 0004      move.l     [A7 + 0x4], 0xB0000000
  79. 00000130  4EFA 003A                jmp        [PC + 0x3A /* 0000016C */]
  80. export_12:
  81. 00000134  2F17                     move.l     -[A7], [A7]
  82. 00000136  2F7C BA00 0000 0004      move.l     [A7 + 0x4], 0xBA000000
  83. 0000013E  4EFA 002C                jmp        [PC + 0x2C /* 0000016C */]
  84. 00000142  2F17                     move.l     -[A7], [A7]
  85. 00000144  2F7C C000 0200 0004      move.l     [A7 + 0x4], 0xC0000200
  86. 0000014C  4EFA 001E                jmp        [PC + 0x1E /* 0000016C */]
  87. export_19:
  88. 00000150  2F17                     move.l     -[A7], [A7]
  89. 00000152  2F7C C800 0000 0004      move.l     [A7 + 0x4], 0xC8000000
  90. 0000015A  4EFA 0010                jmp        [PC + 0x10 /* 0000016C */]
  91. 0000015E  2F17                     move.l     -[A7], [A7]
  92. 00000160  2F7C D000 0000 0004      move.l     [A7 + 0x4], 0xD0000000
  93. 00000168  4EFA 0002                jmp        [PC + 0x2 /* 0000016C */]
  94. fn0000016C:
  95. 0000016C  4E56 0000                link       A6, 0
  96. 00000170  48E7 0018                movem.l    -[A7], A3,A4
  97. 00000174  7200                     moveq.l    D1, 0x00
  98. 00000176  122E 0008                move.b     D1, [A6 + 0x8]
  99. 0000017A  E609                     lsr        D1.b, 3
  100. 0000017C  6718                     beq        +0x1A /* 00000196 */
  101. 0000017E  4A2E 0008                tst.b      [A6 + 0x8]
  102. 00000182  6B00 00C6                bmi        +0xC8 /* 0000024A */
  103. 00000186  7400                     moveq.l    D2, 0x00
  104. 00000188  142E 0009                move.b     D2, [A6 + 0x9]
  105. 0000018C  661E                     bne        +0x20 /* 000001AC */
  106. 0000018E  7403                     moveq.l    D2, 0x03
  107. 00000190  C438 0946                and.b      D2, [0x00000946 /* ChooserBits */]
  108. 00000194  6016                     bra        +0x18 /* 000001AC */
  109. label00000196:
  110. 00000196  206E 0014                movea.l    A0, [A6 + 0x14]
  111. 0000019A  2050                     movea.l    A0, [A0]
  112. 0000019C  7403                     moveq.l    D2, 0x03
  113. 0000019E  C428 0044                and.b      D2, [A0 + 0x44]
  114. 000001A2  0238 00FC 0946           andi.b     [0x00000946 /* ChooserBits */], 0xFC
  115. 000001A8  8538 0946                or.b       [0x00000946 /* ChooserBits */], D2
  116. label000001AC:
  117. 000001AC  3678 0A5A                movea.w    A3, [0x00000A5A /* CurMap */]
  118. 000001B0  42A7                     clr.l      -[A7]
  119. 000001B2  2F3C 5044 4546           move.l     -[A7], 0x50444546 /* 'PDEF' */
  120. 000001B8  3F02                     move.w     -[A7], D2
  121. 000001BA  A9A0                     syscall    GetResource
  122. 000001BC  201F                     move.l     D0, [A7]+
  123. 000001BE  4A80                     tst.l      D0
  124. 000001C0  664E                     bne        +0x50 /* 00000210 */
  125. 000001C2  3678 0A5A                movea.w    A3, [0x00000A5A /* CurMap */]
  126. 000001C6  0C78 FFFF 0952           cmpi.w     [0x00000952 /* PrRefNum */], 0xFFFF
  127. 000001CC  670C                     beq        +0xE /* 000001DA */
  128. 000001CE  3F38 0952                move.w     -[A7], [0x00000952 /* PrRefNum */]
  129. 000001D2  A998                     syscall    UseResFile
  130. 000001D4  4A78 0A60                tst.w      [0x00000A60 /* ResErr */]
  131. 000001D8  6716                     beq        +0x18 /* 000001F0 */
  132. label000001DA:
  133. 000001DA  4EBA 01D8                jsr        [PC + 0x1D8 /* 000003B4 */]
  134. 000001DE  4A40                     tst.w      D0
  135. 000001E0  6708                     beq        +0xA /* 000001EA */
  136. 000001E2  31C0 0944                move.w     [0x00000944 /* PrintErr */], D0
  137. 000001E6  4EFA 00B0                jmp        [PC + 0xB0 /* 00000298 */]
  138. label000001EA:
  139. 000001EA  3F38 0952                move.w     -[A7], [0x00000952 /* PrRefNum */]
  140. 000001EE  A998                     syscall    UseResFile
  141. label000001F0:
  142. 000001F0  42A7                     clr.l      -[A7]
  143. 000001F2  2F3C 5044 4546           move.l     -[A7], 0x50444546 /* 'PDEF' */
  144. 000001F8  3F02                     move.w     -[A7], D2
  145. 000001FA  A9A0                     syscall    GetResource
  146. 000001FC  201F                     move.l     D0, [A7]+
  147. 000001FE  4A80                     tst.l      D0
  148. 00000200  660E                     bne        +0x10 /* 00000210 */
  149. 00000202  3F0B                     move.w     -[A7], A3
  150. 00000204  A998                     syscall    UseResFile
  151. 00000206  31FC FF40 0944           move.w     [0x00000944 /* PrintErr */], 0xFF40
  152. 0000020C  4EFA 008A                jmp        [PC + 0x8A /* 00000298 */]
  153. label00000210:
  154. 00000210  2840                     movea.l    A4, D0
  155. 00000212  204C                     movea.l    A0, A4
  156. 00000214  A029                     syscall    HLock
  157. 00000216  3F0B                     move.w     -[A7], A3
  158. 00000218  A998                     syscall    UseResFile
  159. 0000021A  41EE 000C                lea.l      A0, [A6 + 0xC]
  160. 0000021E  7007                     moveq.l    D0, 0x07
  161. 00000220  C02E 0008                and.b      D0, [A6 + 0x8]
  162. 00000224  D02E 000A                add.b      D0, [A6 + 0xA]
  163. 00000228  9EC0                     sub.w      A7, D0
  164. 0000022A  224F                     movea.l    A1, A7
  165. 0000022C  A02E                     syscall    BlockMove/BlockMoveData
  166. 0000022E  102E 000B                move.b     D0, [A6 + 0xB]
  167. 00000232  0200 007F                andi.b     D0, 0x7F
  168. 00000236  2054                     movea.l    A0, [A4]
  169. 00000238  4EB0 0000                jsr        [A0 + D0.w]
  170. 0000023C  102E 000B                move.b     D0, [A6 + 0xB]
  171. 00000240  6A04                     bpl        +0x6 /* 00000246 */
  172. 00000242  204C                     movea.l    A0, A4
  173. 00000244  A02A                     syscall    HUnlock
  174. label00000246:
  175. 00000246  4EFA 0122                jmp        [PC + 0x122 /* 0000036A */]
  176. label0000024A:
  177. 0000024A  9EFC 0032                sub.w      A7, 0x32 /* '2' */
  178. 0000024E  41FA 019C                lea.l      A0, [PC + 0x19C /* 000003EC, value 0x62E5072, pstring ".Print" */]
  179. 00000252  2F48 0012                move.l     [A7 + 0x12], A0
  180. 00000256  3F7C FFFD 0018           move.w     [A7 + 0x18], 0xFFFD
  181. 0000025C  422F 001B                clr.b      [A7 + 0x1B]
  182. 00000260  204F                     movea.l    A0, A7
  183. 00000262  7000                     moveq.l    D0, 0x00
  184. 00000264  0881 0004                bclr.b     D1, 0x4
  185. 00000268  D241                     add.w      D1, D1
  186. 0000026A  323B 1006                move.w     D1, [PC + D1.w + 0x6]
  187. 0000026E  4EFB 1002                jmp        [PC + D1.w + 0x2]
  188. 00000272  0068 006E 0074           ori.w      [A0 + 0x74], 0x6E /* 'n' */
  189. 00000278  007E 0090                ori.w      <<invalid special address>>, 0x90
  190. 0000027C  00AC 00C0 00E2 00EC      ori.l      [A4 + 0xEC], 0xC000E2
  191. 00000284  0030 0044 0020           ori.b      [A0 + D0.w + 0x20], 0x44 /* 'D' */
  192. 0000028A  0020 0020                ori.b      -[A0], 0x20 /* ' ' */
  193. 0000028E  0020 0020                ori.b      -[A0], 0x20 /* ' ' */
  194. 00000292  31FC FFCE 0944           move.w     [0x00000944 /* PrintErr */], 0xFFCE
  195. label00000298:
  196. 00000298  7200                     moveq.l    D1, 0x00
  197. 0000029A  122E 000A                move.b     D1, [A6 + 0xA]
  198. 0000029E  4EFA 00E8                jmp        [PC + 0xE8 /* 00000388 */]
  199. 000002A2  2F3C 8000 0000           move.l     -[A7], 0x80000000
  200. 000002A8  4EBA FEC2                jsr        [PC - 0x13E /* 0000016C */]
  201. 000002AC  3038 0944                move.w     D0, [0x00000944 /* PrintErr */]
  202. 000002B0  6624                     bne        +0x26 /* 000002D6 */
  203. 000002B2  7200                     moveq.l    D1, 0x00
  204. 000002B4  6002                     bra        +0x4 /* 000002B8 */
  205. 000002B6  7201                     moveq.l    D1, 0x01
  206. label000002B8:
  207. 000002B8  4EBA 00FA                jsr        [PC + 0xFA /* 000003B4 */]
  208. 000002BC  4A40                     tst.w      D0
  209. 000002BE  6616                     bne        +0x18 /* 000002D6 */
  210. 000002C0  3038 0952                move.w     D0, [0x00000952 /* PrRefNum */]
  211. 000002C4  4A78 0A60                tst.w      [0x00000A60 /* ResErr */]
  212. 000002C8  6608                     bne        +0xA /* 000002D2 */
  213. 000002CA  4A41                     tst.w      D1
  214. 000002CC  6704                     beq        +0x6 /* 000002D2 */
  215. 000002CE  3F00                     move.w     -[A7], D0
  216. 000002D0  A99A                     syscall    CloseResFile
  217. label000002D2:
  218. 000002D2  3038 0A60                move.w     D0, [0x00000A60 /* ResErr */]
  219. label000002D6:
  220. 000002D6  4EFA 008A                jmp        [PC + 0x8A /* 00000362 */]
  221. 000002DA  A000                     syscall    Open/PBHOpen/HOpen
  222. 000002DC  4EFA 0084                jmp        [PC + 0x84 /* 00000362 */]
  223. 000002E0  A001                     syscall    Close
  224. 000002E2  4EFA 007E                jmp        [PC + 0x7E /* 00000362 */]
  225. 000002E6  615E                     bsr        +0x60 /* 00000346 */
  226. 000002E8  DEFC 002E                add.w      A7, 0x2E /* '.' */
  227. 000002EC  2E88                     move.l     [A7], A0
  228. 000002EE  607A                     bra        +0x7C /* 0000036A */
  229. 000002F0  6154                     bsr        +0x56 /* 00000346 */
  230. 000002F2  2050                     movea.l    A0, [A0]
  231. 000002F4  7000                     moveq.l    D0, 0x00
  232. 000002F6  1028 0007                move.b     D0, [A0 + 0x7]
  233. 000002FA  DEFC 0030                add.w      A7, 0x30 /* '0' */
  234. 000002FE  3E80                     move.w     [A7], D0
  235. 00000300  6068                     bra        +0x6A /* 0000036A */
  236. 00000302  216E 000C 0024           move.l     [A0 + 0x24], [A6 + 0xC]
  237. 00000308  216E 0010 0020           move.l     [A0 + 0x20], [A6 + 0x10]
  238. 0000030E  216E 0014 001C           move.l     [A0 + 0x1C], [A6 + 0x14]
  239. 00000314  316E 0018 001A           move.w     [A0 + 0x1A], [A6 + 0x18]
  240. 0000031A  A004                     syscall    Control
  241. 0000031C  6044                     bra        +0x46 /* 00000362 */
  242. 0000031E  6126                     bsr        +0x28 /* 00000346 */
  243. 00000320  2050                     movea.l    A0, [A0]
  244. 00000322  0828 0006 0005           btst.b     [A0 + 0x5], 0x6
  245. 00000328  6738                     beq        +0x3A /* 00000362 */
  246. 0000032A  2068 0000                movea.l    A0, [A0 + 0x0]
  247. 0000032E  A049                     syscall    HPurge
  248. 00000330  6030                     bra        +0x32 /* 00000362 */
  249. 00000332  6112                     bsr        +0x14 /* 00000346 */
  250. 00000334  2050                     movea.l    A0, [A0]
  251. 00000336  0828 0006 0005           btst.b     [A0 + 0x5], 0x6
  252. 0000033C  6724                     beq        +0x26 /* 00000362 */
  253. 0000033E  2068 0000                movea.l    A0, [A0 + 0x0]
  254. 00000342  A04A                     syscall    HNoPurge
  255. 00000344  601C                     bra        +0x1E /* 00000362 */
  256. fn00000346:
  257. 00000346  317C 0001 001A           move.w     [A0 + 0x1A], 0x1
  258. 0000034C  A005                     syscall    Status
  259. 0000034E  2068 001C                movea.l    A0, [A0 + 0x1C]
  260. 00000352  4E75                     rts
  261. 00000354  DEFC 0030                add.w      A7, 0x30 /* '0' */
  262. 00000358  3EB8 0944                move.w     [A7], [0x00000944 /* PrintErr */]
  263. 0000035C  600C                     bra        +0xE /* 0000036A */
  264. 0000035E  302E 000C                move.w     D0, [A6 + 0xC]
  265. label00000362:
  266. 00000362  DEFC 0032                add.w      A7, 0x32 /* '2' */
  267. 00000366  31C0 0944                move.w     [0x00000944 /* PrintErr */], D0
  268. label0000036A:
  269. 0000036A  7200                     moveq.l    D1, 0x00
  270. 0000036C  122E 000A                move.b     D1, [A6 + 0xA]
  271. 00000370  7007                     moveq.l    D0, 0x07
  272. 00000372  C02E 0008                and.b      D0, [A6 + 0x8]
  273. 00000376  6710                     beq        +0x12 /* 00000388 */
  274. 00000378  204F                     movea.l    A0, A7
  275. 0000037A  43F6 100C                lea.l      A1, [A6 + D1.w + 0xC]
  276. 0000037E  E248                     lsr        D0.w, 1
  277. 00000380  6002                     bra        +0x4 /* 00000384 */
  278. label00000382:
  279. 00000382  32DF                     move.w     [A1]+, [A7]+
  280. label00000384:
  281. 00000384  51C8 FFFC                dbf        D0, -0x6 /* 00000382 */
  282. label00000388:
  283. 00000388  4CDF 1800                movem.l    A3,A4, [A7]+
  284. 0000038C  4E5E                     unlink     A6
  285. 0000038E  205F                     movea.l    A0, [A7]+
  286. 00000390  DFC1                     add.l      A7, D1
  287. 00000392  584F                     addq.w     A7, 4
  288. 00000394  4ED0                     jmp        [A0]
  289. fn00000396:
  290. 00000396  7000                     moveq.l    D0, 0x00
  291. fn00000398:
  292. 00000398  9EFC 0040                sub.w      A7, 0x40 /* '@' */
  293. 0000039C  204F                     movea.l    A0, A7
  294. 0000039E  3140 0016                move.w     [A0 + 0x16], D0
  295. 000003A2  42A8 0012                clr.l      [A0 + 0x12]
  296. 000003A6  A015                     syscall    SetVol/PBHSetVol/HSetVol
  297. 000003A8  A014                     syscall    GetVol/PBHGetVol/HGetVol
  298. 000003AA  3028 0016                move.w     D0, [A0 + 0x16]
  299. 000003AE  DEFC 0040                add.w      A7, 0x40 /* '@' */
  300. 000003B2  4E75                     rts
  301. fn000003B4:
  302. 000003B4  594F                     subq.w     A7, 4
  303. 000003B6  3F3C E000                move.w     -[A7], 0xE000
  304. 000003BA  A9BA                     syscall    GetString
  305. 000003BC  201F                     move.l     D0, [A7]+
  306. 000003BE  6606                     bne        +0x8 /* 000003C6 */
  307. 000003C0  303C FF40                move.w     D0, 0xFF40
  308. 000003C4  6024                     bra        +0x26 /* 000003EA */
  309. label000003C6:
  310. 000003C6  2240                     movea.l    A1, D0
  311. 000003C8  61CC                     bsr        -0x32 /* 00000396 */
  312. 000003CA  4841                     swap.w     D1
  313. 000003CC  3200                     move.w     D1, D0
  314. 000003CE  554F                     subq.w     A7, 2
  315. 000003D0  2049                     movea.l    A0, A1
  316. 000003D2  A029                     syscall    HLock
  317. 000003D4  2F11                     move.l     -[A7], [A1]
  318. 000003D6  A997                     syscall    OpenResFile
  319. 000003D8  31DF 0952                move.w     [0x00000952 /* PrRefNum */], [A7]+
  320. 000003DC  2049                     movea.l    A0, A1
  321. 000003DE  A02A                     syscall    HUnlock
  322. 000003E0  3001                     move.w     D0, D1
  323. 000003E2  4841                     swap.w     D1
  324. 000003E4  61B2                     bsr        -0x4C /* 00000398 */
  325. 000003E6  3038 0A60                move.w     D0, [0x00000A60 /* ResErr */]
  326. label000003EA:
  327. 000003EA  4E75                     rts
  328. 000003EC  062E 5072 696E           addi.b     [A6 + 0x696E], 0x72 /* 'r' */
  329. 000003F2  7420                     moveq.l    D2, 0x20
  330.